Can"t locate loadable object for module Tk::Event

Hi,

I am in the process of moving the programs from an apache box to SUN
and I was missing a lot of .pm files and I have installed it and
finally needed Tk and GD and these are installed, compiled in the same
machine and tested okay but I am still getting Can't locate loadable
object for module Tk::Event error message in the browser. Is there
anything that I should do to make it work. Please advice. Any
suggestions are appreciated.

Balu

Re: Can"t locate loadable object for module Tk::Event

wrote in message
news:1121444113.343804.112080@g49g2000cwa.googlegroups.com.. .
> Hi,
>
> I am in the process of moving the programs from an apache box to SUN
> and I was missing a lot of .pm files and I have installed it and
> finally needed Tk and GD and these are installed, compiled in the same
> machine and tested okay but I am still getting Can't locate loadable
> object for module Tk::Event error message in the browser. Is there
> anything that I should do to make it work. Please advice. Any
> suggestions are appreciated.
>

Is this just a web server issue ? What happens when you run from the command
line:

perl -MTk::Event -le 'print "OK"'

If you get the same error, then one suspects that auto/Tk/Event/Event.so
(which is the loadable object referred to) is not where it should be - ie in
one of the @INC directories.

If it's there, then one begins to wonder about permissions - of both the
file itself, and the directory that houses it.

Cheers,
Rob

Re: Can"t locate loadable object for module Tk::Event

Sisyphus wrote:
> wrote in message
> news:1121444113.343804.112080@g49g2000cwa.googlegroups.com.. .
> Is this just a web server issue ? What happens when you run from the command
> line:
>
> perl -MTk::Event -le 'print "OK"'
>
> If you get the same error, then one suspects that auto/Tk/Event/Event.so
> (which is the loadable object referred to) is not where it should be - ie in
> one of the @INC directories.
>
> If it's there, then one begins to wonder about permissions - of both the
> file itself, and the directory that houses it.
>
> Cheers,
> Rob

Thank you so much for the response. From the command line the cgi
script runs okay without any error.
perl -MTk::Event -le 'print "OK"'
is OK also. The permissions looks okay also but I will keep on looking.
If there is any other suggestions in the mean time, please let me know.
Thanks,

Balu

Re: Can"t locate loadable object for module Tk::Event

Sisyphus wrote:
>
> Is this just a web server issue ? What happens when you run from the command
> line:
>
> perl -MTk::Event -le 'print "OK"'
>
> If you get the same error, then one suspects that auto/Tk/Event/Event.so
> (which is the loadable object referred to) is not where it should be - ie in
> one of the @INC directories.
>
> If it's there, then one begins to wonder about permissions - of both the
> file itself, and the directory that houses it.

Yes, your suggestion worked. I didn't have the .so files in the @INC
directories. I copied the files and it worked. Thank you so much. I am
getting a different error when I click on one of the link that is:

Software error:
Undefined subroutine &main::Parse_Date called at
/opt/SUNWwbsvr/ssl/dodnic.portal/cgi-bin/aaa/aaamain.cgi line 118,
line 1.

For help, please send mail to this site's webmaster, giving this error
message and the time and date of the error.

[Mon Jul 18 11:45:55 2005] aaamain.cgi: Undefined subroutine
&main::Parse_Date called at
/opt/SUNWwbsvr/ssl/dodnic.portal/cgi-bin/aaa/aaamain.cgi line 118, line
1.

Please help me, if this is familiar.
Thanks a million,

Balu

Re: Can"t locate loadable object for module Tk::Event

wrote in message

>
> [Mon Jul 18 11:45:55 2005] aaamain.cgi: Undefined subroutine
> &main::Parse_Date called at
> /opt/SUNWwbsvr/ssl/dodnic.portal/cgi-bin/aaa/aaamain.cgi line 118, line
> 1.

Perl can't find the Parse_Date() subroutine. Where is it ? If it's a
Tk::Event subroutine, then calling it as Tk::Event::Parse_Date(), instead of
simply Parse_Date(), should fix the problem. Alternatively, you could import
it - by loading Tk::Event with:
use Tk::Event qw(Parse_Date);

Cheers,
Rob

Re: Can"t locate loadable object for module Tk::Event

Sisyphus wrote:
> wrote in message
> Perl can't find the Parse_Date() subroutine. Where is it ? If it's a
> Tk::Event subroutine, then calling it as Tk::Event::Parse_Date(), instead=
of
> simply Parse_Date(), should fix the problem. Alternatively, you could imp=
ort
> it - by loading Tk::Event with:
> use Tk::Event qw(Parse_Date);

Thanks for taking time to relply me. use Date::Calc qw(Parse_Date); is
already defined and still the browser is complaining that. My program
is as follows:

#!/usr/local/bin/perl


use CGI::Carp qw(fatalsToBrowser);
$ENV{'PATH'} =3D '/bin:/usr/bin:/usr/ucb';


@capodichino =3D ();
@vienna =3D ();
@vaihingen =3D ();
@kelly =3D ();
@wheeler =3D ();
@yokota =3D ();
@yydata =3D ();


use Chart::Plot;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
use Chart::Lines;
use Date::Calc qw(Parse_Date);
use Date::Calc qw(Add_Delta_Days);
use Date::Calc qw(Delta_Days);
use AAA_UTILS;


$bad_input =3D 0;


$bad_input =3D 0;
$empty_flag =3D 0;
$visit =3D 0;
$xdata_flag =3D 0;
$last_xdata =3D 0;
$start_str_time =3D "";
$error =3D 0;
$yesterday =3D -1;
$yesterday2 =3D -2;
$select_header =3D 0;


main: {
$access_handle =3D AAA_UTILS->new();
Init();
page_starter();


if ( $q->param('Systems') =3D~ /Current month/) {
Current_month_form();


} elsif ( $q->param('Systems') =3D~ /Ad hoc/) {
adhoc_search_form();


adhoc_search_form();


} else { empty_form(); }



};


sub Init
{
use CGI;

$q=3Dnew CGI;


@start_month =3D qw (01 02 03 04 05 06 07 08 09 10 11 12);
@end_month =3D qw (01 02 03 04 05 06 07 08 09 10 11 12);
$default_option =3D "Incident Reports";
$default_system =3D "System Reports";



}


sub page_starter()
{
print $q->header;
print $q->start_html(-title=3D>'AAA System Reports',
-bgcolor =3D> "#FFFFFF"
);


}


sub empty_form() {

$empty =3D "Date";
local($user) =3D $ENV{'REMOTE_USER'};


$user_value =3D $user_table{$user};


print qq!

AAA System Reports

System Reports provide performance information.

Re: Can"t locate loadable object for module Tk::Event

Sisyphus wrote:
> Perl can't find the Parse_Date() subroutine. Where is it ? If it's a
> Tk::Event subroutine, then calling it as Tk::Event::Parse_Date(), instead of
> simply Parse_Date(), should fix the problem. Alternatively, you could import
> it - by loading Tk::Event with:
> use Tk::Event qw(Parse_Date);

Thanks for your help. I found the problem. I am using the wrong version
of Calc.pm.
Regards,

Balu